<%

Function apostas_ranking_descarte (id_usuario, id_rodada)

	str = "Select pontos FROM ranking_descarte where id_usuario="&id_usuario
    Set rs = conexao_geral.Execute(str)
	
	IF rs.eof then
		
		apostas_ranking_descarte_novo  id_usuario 
		apostas_ranking_descarte  id_usuario, id_rodada 
		
	Else
	
		DIM pontos
		
		pontos = rs("pontos")+apostas_get_pontuacao_rodada(id_rodada, id_usuario)-apostas_get_pontuacao_rodada(id_rodada-CInt(configuracoes_get("ranking_descarte")), id_usuario)
		
		str = "UPDATE ranking_descarte SET "
		str = str & "pontos='"&pontos&"' "
		str = str & " WHERE id_usuario="&id_usuario
		Set rsI = conexao_geral.Execute(str)		
	
	
	End If
		

End Function

Function apostas_ranking (id_usuario, data, rodadas_apostadas, rodadas_nao_apostadas, jogos_apostados, max_pontuacao, acertos, acertos_exatos, acertos_bonus)

	str = "Select * FROM ranking where id_usuario="&id_usuario&" AND mes='"&data&"'"
    Set rs = conexao_geral.Execute(str)
	
	IF rs.eof then
		
		If rodadas_nao_apostadas=0 then
		
			apostas_ranking_novo  id_usuario, data 
			apostas_ranking  id_usuario, data, rodadas_apostadas, rodadas_nao_apostadas, jogos_apostados, max_pontuacao, acertos, acertos_exatos, acertos_bonus
			
		End If
		
	Else

	
		rodadas_apostadas_=rodadas_apostadas+rs("rodadas_apostadas")
		rodadas_nao_apostadas_=rodadas_nao_apostadas+rs("rodadas_nao_apostadas")
		jogos_apostados_=jogos_apostados+rs("jogos_apostados")
		acertos_=acertos+rs("acertos")
		acertos_exatos_=acertos_exatos+rs("acertos_exatos")
		acertos_bonus_=acertos_bonus+rs("acertos_bonus")
		If Int(max_pontuacao)<int(rs("max_pontuacao")) then max_pontuacao = rs("max_pontuacao")
		
		str = "UPDATE ranking SET "
		str = str & "rodadas_apostadas='"&rodadas_apostadas_&"', "
		str = str & "rodadas_nao_apostadas='"&rodadas_nao_apostadas_&"', "
		str = str & "jogos_apostados='"&jogos_apostados_&"', "
		str = str & "max_pontuacao='"&max_pontuacao&"', "
		str = str & "acertos='"&acertos_&"', "
		str = str & "acertos_exatos='"&acertos_exatos_&"', "
		str = str & "acertos_bonus='"&acertos_bonus_&"' "
		str = str & "where id_usuario="&id_usuario&" AND mes='"&data&"'"
		Set rsI = conexao_geral.Execute(str)	
		
	
		if data<>"" then
			apostas_ranking  id_usuario, "", rodadas_apostadas, rodadas_nao_apostadas, jogos_apostados, max_pontuacao, acertos, acertos_exatos, acertos_bonus	
		End If			
	
	End If
		
		

End Function

Function apostas_ranking_descarte_novo  (id_usuario) 
	
			str = "INSERT into ranking_descarte "
			str = str & "(id_usuario) "
			str = str & "VALUES ('" & id_usuario & "')"	
			Set rsI = conexao_geral.Execute(str)		

End Function

Function apostas_ranking_novo  (id_usuario, data) 
	
			str = "INSERT into ranking "
			str = str & "(id_usuario, mes) "
			str = str & "VALUES ('" & id_usuario & "', "	
			str = str & "'" & data & "')"	
			Set rsI = conexao_geral.Execute(str)		

End Function
%>
